home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / vegx20.zip / VGXTEST.BAS < prev    next >
BASIC Source File  |  1990-11-15  |  1KB  |  59 lines
  1. ' VGXTEST.bas
  2.  
  3. ' You must load QB with the appropriate VEGX quicklibrary for your
  4. ' version of QB.
  5.  
  6. ' to do so type "QB /Lvegxlibraryname" at the DOS prompt.
  7. ' "vegxlibraryname" is VEGX40.QLB for QB 4.0 or BASIC 6.0;
  8. '                      VEGX45.QLB for QB 4.5, and
  9. '                      VEGX70f.QLB for BASIC 7.0
  10.  
  11. DEFINT A-Z
  12. DECLARE SUB VGXLoad (fil$, PalFlag)
  13. DECLARE SUB VGXSave (fil$)
  14.  
  15. SCREEN 12
  16. LINE (0, 0)-(639, 479), 1, B
  17.  
  18. k = 1
  19. FOR x = 50 TO 600 STEP 38
  20.    CIRCLE (x, 200), 40, k
  21.    PAINT (x, 200), k
  22.    k = k + 1
  23. NEXT x
  24.  
  25. LOCATE 4, 10
  26. COLOR 12
  27. PRINT "We will now save this screen to VGXTEST!.VGX and call it back up."
  28. COLOR 14
  29. LOCATE , 10
  30. PRINT "Hit any key..."
  31.  
  32. DO: LOOP WHILE INKEY$ = ""
  33.  
  34. fil$ = "VGXTEST!"
  35. CALL VGXSave(fil$)
  36. CLS
  37.  
  38. LOCATE 10
  39. COLOR 12
  40. PRINT "          We are ready to load it again.  Choose a load option..."
  41. COLOR 6
  42. PRINT "          PALFLAG  OUT             IN"
  43. PRINT "            0      no blank        bank load"
  44. PRINT "            1      blank to 0      instant on"
  45. PRINT "            2      blank to 0      fade in"
  46. PRINT "            3      fade out        instant on"
  47. PRINT "            4      fade out        fade in"
  48.  
  49. COLOR 14
  50.  
  51. INPUT "          Enter PalFlag number (0 to 4)... ", PalFlag
  52.  
  53. CALL VGXLoad(fil$, PalFlag)
  54.  
  55. DO: LOOP WHILE INKEY$ = ""
  56.  
  57. END
  58.  
  59.